home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…ness) 1997 September #242 / Software of the Month Club - Business Shareware (September 1997).iso / dos / biz / pettycsh / pack1.prg / APPS / PCASH / SW / PROC1.PRO < prev    next >
Unknown  |  1996-10-20  |  317 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert CODESYS Project (other/codesysProject) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 14 00 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |..Declar|e Variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 65 6e 64 | 0d 0a 27 2e 2e 2e 2e 2e |ber..end|..'.....|
|00000030| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00000040| 2e 2e 2e 2e 2e 2e 0d 0a | 66 6f 72 20 52 65 63 6f |........|for Reco|
|00000050| 72 64 73 20 4e 65 77 20 | 52 65 63 6f 72 64 0d 0a |rds New |Record..|
|00000060| 20 20 20 63 6f 70 79 20 | 61 6c 6c 20 66 72 6f 6d |   copy |all from|
|00000070| 20 69 6e 70 75 74 0d 0a | 6e 65 78 74 0d 0a 66 6f | input..|next..fo|
|00000080| 72 20 61 75 74 6f 0d 0a | 20 20 20 78 20 3d 20 78 |r auto..|   x = x|
|00000090| 20 2b 20 31 0d 0a 6e 65 | 78 74 0d 0a 69 66 20 78 | + 1..ne|xt..if x|
|000000a0| 20 3d 20 30 20 74 68 65 | 6e 0d 0a 20 20 20 66 6f | = 0 the|n..   fo|
|000000b0| 72 20 61 75 74 6f 20 6e | 65 77 20 72 65 63 6f 72 |r auto n|ew recor|
|000000c0| 64 0d 0a 20 20 20 20 20 | 20 61 75 74 6f 2e 78 20 |d..     | auto.x |
|000000d0| 3d 20 22 78 22 0d 0a 20 | 20 20 6e 65 78 74 0d 0a |= "x".. |  next..|
|000000e0| 65 6e 64 20 69 66 0d 0a | 0d 0a 66 6f 72 20 41 75 |end if..|..for Au|
|000000f0| 74 6f 0d 0a 20 20 20 61 | 75 74 6f 2e 72 65 63 20 |to..   a|uto.rec |
|00000100| 3d 20 69 6e 70 75 74 2e | 45 6e 74 72 79 0d 0a 20 |= input.|Entry.. |
|00000110| 20 20 75 70 64 61 74 65 | 20 72 65 63 6f 72 64 0d |  update| record.|
|00000120| 0a 6e 65 78 74 0d 0a 04 | 00 45 6e 74 72 69 65 73 |.next...|.Entries|
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20          |        |        |
+--------+-------------------------+-------------------------+--------+--------+